home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / GRAPHICS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  13KB  |  250 lines

  1. 8  REM  TITLE FRAME
  2. 10  HOME 
  3. 12  SPEED= 50
  4. 15  GOSUB 950: TEXT : HOME 
  5. 18  REM  SUBTITLE
  6. 20  GOSUB 900
  7. 30  HOME : VTAB 6: HTAB 6: PRINT "THE FOLLOWING DEMONSTRATION SHOULD"
  8. 32  PRINT : PRINT "GIVE YOU AN IDEA OF THE GRAPHICS ABIL-"
  9. 34  PRINT : PRINT "ITIES OF THIS COMPUTER."
  10. 35  PRINT 
  11. 40  HTAB 6: PRINT "WHEN YOU ARE READY TO SEE THE": PRINT : PRINT "DEMONSTRATION, TYPE IN 'GRAPHICS'."
  12. 41  PRINT : PRINT 
  13. 42  INPUT G$
  14. 45  IF G$ = "GRAPHICS"  THEN 100
  15. 50  INPUT "THE WORD I'M WAITING FOR IS  'GRAPHICS' ";G$: GOTO 45
  16. 100  GR 
  17. 105  COLOR= 12
  18. 110  HLIN 5,35 AT 3
  19. 120  HLIN 5,35 AT 28
  20. 130  VLIN 3,28 AT 5
  21. 140  VLIN 3,28 AT 35
  22. 143  FOR X = 1 TO 1000: NEXT X
  23. 150  HLIN 10,30 AT 6
  24. 160  HLIN 10,30 AT 20
  25. 170  VLIN 6,20 AT 10
  26. 180  VLIN 6,20 AT 30
  27. 185  HLIN 13,14 AT 23: HLIN 13,14 AT 24
  28. 187  HLIN 26,27 AT 23: HLIN 26,27 AT 24
  29. 190  FOR X = 1 TO 2000: NEXT X
  30. 195  HOME 
  31. 200  PRINT : PRINT : PRINT 
  32. 205 L$ = "LIST"
  33. 210  INPUT " IF YOU WANT TO SEE HOW THIS PROGRAM WORKS, TYPE IN LIST   ";L$
  34. 230  IF L$ GOTO 240
  35. 240  TEXT : HOME 
  36. 250  LIST 100,190
  37. 260  VTAB 21
  38. 265  INPUT "DO YOU WANT MORE INFORMATION?  ";Y$
  39. 270  IF Y$ = "YES" GOTO 390
  40. 275  HOME : VTAB 10: HTAB 6
  41. 280  PRINT "OKAY, THEN YOU SHOULD LET SOMEONE": PRINT : PRINT "ELSE USE THE COMPUTER FOR A WHILE.": PRINT : PRINT "I HOPE YOU LEARNED SOMETHING NEW": PRINT : PRINT "ABOUT WRITING PROGRAMS WITH GRAPHICS."
  42. 290  SPEED= 255
  43. 300  END 
  44. 390  PRINT : PRINT : HOME : VTAB 6
  45. 400  PRINT "WE USED THE FOLLOWING COMMANDS TO WRITE": PRINT : PRINT "THIS PROGRAM."
  46. 405  SPEED= 255: PRINT 
  47. 410  HTAB 10: PRINT "1) GR
  48. 412  PRINT 
  49. 415  HTAB 10: PRINT "2) COLOR
  50. 417  PRINT 
  51. 420  HTAB 10: PRINT "3) HLIN
  52. 422  PRINT 
  53. 425  HTAB 10: PRINT "4) VLIN
  54. 427  PRINT 
  55. 430  HTAB 10: PRINT "5) FOR ...NEXT"
  56. 432  PRINT 
  57. 440  PRINT "TYPE IN THE NUMBER OF THE ONE YOU ": PRINT : PRINT "WANT EXPLAINED": INPUT " ";X
  58. 445  SPEED= 50
  59. 450  ON X GOTO 500,550,600,650,700
  60. 500  HOME : VTAB 3: HTAB 6: PRINT "THE COMMAND 'GR' PUTS THE": PRINT : PRINT "COMPUTER IN TO GRAPHICS MODE SO YOU": PRINT : PRINT "CAN DRAW PICTURES AND GRAPHS": PRINT : PRINT "ON A 40 BY 40 GRID."
  61. 504  PRINT 
  62. 505  HTAB 7: PRINT "FOUR LINES FOR TEXT ARE LEFT": HTAB 7: PRINT : PRINT "AT THE BOTTOM OF THE SCREEN.": GOSUB 1500
  63. 508  REM  PAUSE
  64. 510  HTAB 7: PRINT : PRINT "AFTER WRITING 'GR' INTO YOUR": HTAB 7: PRINT : PRINT "PROGRAM, SET 'COLOR' TO A COLOR": HTAB 7: PRINT : PRINT "WHICH WILL SHOW ON THE SCREEN."
  65. 530  VTAB 24: GOTO 265
  66. 550  HOME : PRINT : HTAB 6
  67. 555  PRINT "THE COMMAND 'COLOR' WITH A NUM-": PRINT : PRINT "BER SETS THE TV COLOR FOR PLOT-"
  68. 560  PRINT : PRINT "TING LINES IN THE GRAPHICS MODE ": PRINT : PRINT "(GR). A SAMPLE LINE WOULD BE:": FOR X = 1 TO 600: NEXT X
  69. 565  PRINT : HTAB 13: PRINT "210 COLOR = 12"
  70. 570  FOR X = 1 TO 600: NEXT X: PRINT : PRINT "THIS INSTRUCTION SETS THE COLOR ": PRINT : PRINT "OF A PLOTTED LINE TO GREEN AS 12"
  71. 575  PRINT : PRINT "EQUALS GREEN FOR THIS COMPUTER.": PRINT : PRINT : PRINT 
  72. 580  INPUT "PRESS RETURN FOR MORE.";B$: CALL  -936
  73. 583  SPEED= 255
  74. 585  HOME : VTAB 8: HTAB 6: PRINT "THE APPLE USES 16 COLORS.": VTAB 12: HTAB 6: PRINT "PRESS RETURN TO SEE THEIR NAMES ": PRINT : INPUT "AND NUMBERS.";B$: CALL  -936
  75. 590  HOME : VTAB 4: HTAB 6: PRINT "0 BLACK       8 BROWN": PRINT : HTAB 6: PRINT "1 MAGENTA     9 ORANGE": PRINT : HTAB 6: PRINT "2 DARK BLUE  10 GREY"
  76. 592  PRINT : HTAB 6: PRINT "3 PURPLE     11 PINK": PRINT : HTAB 6: PRINT "4 DARK GREEN 12 GREEN": PRINT : HTAB 6: PRINT "5 GREY       13 YELLOW"
  77. 594  PRINT : HTAB 6: PRINT "6 MED. BLUE  14 AQUA": PRINT : HTAB 6: PRINT "7 LIGHT BLUE 15 WHITE"
  78. 595  SPEED= 50
  79. 596  PRINT : PRINT : INPUT "PRESS RETURN FOR MORE";B$: CALL  -936
  80. 598  GOTO 260
  81. 600  REM  SUBROUTINE FOR HLIN AT 2000
  82. 610  GOTO 2000
  83. 650  REM 
  84. 655  REM  SUBROUTINE FOR VLIN
  85. 660  GOTO 3000
  86. 700  REM 
  87. 705  REM  SUBROUTINE FOR 'FOR...NEXT'
  88. 710  GOTO 4000
  89. 900  VTAB 6: HTAB 5: PRINT "LESSON ONE"
  90. 910  VTAB 8: HTAB 5: PRINT "GRAPHICS"
  91. 920  FOR X = 1 TO 2000: NEXT X
  92. 930  RETURN 
  93. 950  GR : COLOR= 6
  94. 960  HLIN 2,5 AT 6: VLIN 7,9 AT 2: HLIN 2,5 AT 10: HLIN 4,5 AT 8: PLOT 5,9
  95. 970  GOSUB 1200
  96. 980  HLIN 7,10 AT 9: HLIN 7,10 AT 11: VLIN 10,13 AT 7: PLOT 10,10: PLOT 9,12: PLOT 10,13
  97. 990  GOSUB 1200
  98. 1000  HLIN 13,14 AT 12: HLIN 12,15 AT 13: VLIN 14,16 AT 15: VLIN 14,16 AT 12: HLIN 13,14 AT 15
  99. 1010  GOSUB 1200
  100. 1020  VLIN 15,19 AT 17: HLIN 18,20 AT 15: HLIN 18,20 AT 17: PLOT 20,16
  101. 1030  GOSUB 1200
  102. 1040  VLIN 18,22 AT 22: VLIN 18,22 AT 25: HLIN 23,24 AT 20
  103. 1050  GOSUB 1200
  104. 1060  VLIN 21,25 AT 27
  105. 1070  GOSUB 1200
  106. 1080  VLIN 24,28 AT 29: HLIN 30,32 AT 24: HLIN 30,32 AT 28
  107. 1090  GOSUB 1200
  108. 1100  HLIN 34,37 AT 27: HLIN 34,37 AT 29: HLIN 34,37 AT 31: PLOT 34,28: PLOT 37,30
  109. 1120  INPUT "TYPE IN READY WHEN YOU WANT TO CONTINUE";R$
  110. 1130  IF R$ = "RE"  THEN 1140
  111. 1140  RETURN 
  112. 1200  FOR X = 1 TO 150: NEXT X
  113. 1210  RETURN 
  114. 1500  FOR X = 1 TO 200: NEXT X: RETURN 
  115. 2000  REM  THIS IS A SUBROUTINE FOR HLIN
  116. 2005  HOME 
  117. 2010  VTAB 10: HTAB 6: PRINT "HORIZONTAL LINES DRAWN USING HLIN"
  118. 2020  FOR X = 1 TO 2000: NEXT X
  119. 2030  GR : COLOR= 12
  120. 2035  HLIN 17,22 AT 5: HLIN 14,25 AT 10: HLIN 9,30 AT 15: HLIN 4,35 AT 20
  121. 2038  HLIN 9,30 AT 25: HLIN 14,25 AT 30: HLIN 17,22 AT 35
  122. 2040  PRINT "YOU CAN DRAW LINES ON THE SCREEN, TOO."
  123. 2050  INPUT "PRESS RETURN FOR MORE";B$
  124. 2060  TEXT : HOME 
  125. 2070  VTAB 6: HTAB 6: PRINT "'HLIN' IS A BASIC COMMAND": PRINT : PRINT "WHICH WILL DRAW A HORIZONTAL LINE"
  126. 2080  PRINT : PRINT "ON THE SCREEN.  THE POSITION OF": PRINT : PRINT "THE LINE IS DETERMINED THROUGH THE USE"
  127. 2090  PRINT : PRINT "OF THE GRID COORDINATES."
  128. 2100  GOSUB 2990
  129. 2110  VTAB 5: HTAB 6: PRINT "A HORIZONTAL LINE COULD BE DRAWN"
  130. 2112  PRINT : PRINT "ACROSS THE TOP OF THE SCREEN ON ROW 3": PRINT : PRINT "FROM COLUMN 5 TO COLUMN 35 USING": PRINT : PRINT "THIS INSTRUCTION:"
  131. 2114  PRINT : PRINT : HTAB 10: PRINT "110 HLIN 5,35 AT 3"
  132. 2120  GOSUB 2990
  133. 2130  VTAB 5: HTAB 6: PRINT "REMEMBER THAT THE 'GR' COMMAND": PRINT : PRINT "PLACES THE INVISIBLE GRID ON THE": PRINT : PRINT "SCREEN AND SETS THE COLOR TO 0.  YOU"
  134. 2140  PRINT : PRINT "WILL HAVE TO RESET THE COLOR WHENEVER": PRINT : PRINT "YOU USE 'GR'.  THE GRID IS NUMBERED 0"
  135. 2150  PRINT : PRINT "TO 39 ACROSS AND 0 TO 39 FROM TOP TO": PRINT : PRINT "BOTTOM."
  136. 2155  GOSUB 2990
  137. 2160  PRINT : PRINT "     SO IN THE INSTRUCTION:": PRINT : PRINT "         110 HLIN 5,35 AT 3": PRINT : PRINT "THE 5 TELLS THE COMPUTER WHERE THE"
  138. 2170  PRINT : PRINT "HORIZONTAL LINE BEGINS, 35 TELLS WHERE": PRINT : PRINT "IT STOPS, AND 3 TELLS WHERE IT IS "
  139. 2180  PRINT : PRINT "PLACED ON THE SCREEN."
  140. 2190  GOSUB 2990
  141. 2195  VTAB 6
  142. 2200  PRINT : HTAB 6: PRINT "5 AND 35 COULD BE CALLED THE": PRINT : PRINT "'X' COORDINATES AND 3 COULD BE": PRINT : PRINT "CALLED THE 'Y' COORDINATE."
  143. 2210  PRINT : HTAB 6: PRINT "YOU SHOULD BE ABLE TO WRITE": PRINT : PRINT "YOUR OWN INSTRUCTIONS TO DRAW": PRINT : PRINT "A LINE NOW."
  144. 2220  GOSUB 2990
  145. 2230  PRINT : HTAB 6: PRINT "WRITE AN INSTRUCTION, CALL IT": PRINT : PRINT "LINE 120, WHICH WILL DRAW A HORIZONTAL": PRINT : PRINT "LINE FROM COLUMN 10 TO COLUMN 28"
  146. 2240  PRINT : PRINT "ON ROW 35. TYPE IT IN AND I'LL CHECK IT": PRINT : PRINT "WHEN YOU ARE READY."
  147. 2260  PRINT : PRINT "TYPE YOUR INSTRUCTION HERE"
  148. 2265 X$ = "120 HLIN 10":XN$ = "28 AT 35"
  149. 2270  PRINT : PRINT : INPUT I$,IN$
  150. 2275  IF I$ = X$  THEN 2277
  151. 2277  IF XN$ = IN$  THEN 2300
  152. 2290  PRINT : PRINT "NO, THAT'S NOT WHAT WE WANT."
  153. 2295  PRINT : PRINT "HERE IS THE LINE.": PRINT : HTAB 10: PRINT "120 HLIN 10,28 AT 35."
  154. 2297  PRINT : HTAB 6: PRINT "NOW THAT YOU KNOW WHAT THE ": PRINT : PRINT "INSTRUCTION SHOULD SAY, LET'S": PRINT : PRINT "SEE THE HORIZONTAL LINE."
  155. 2298  GOSUB 2990
  156. 2299  GOTO 2310
  157. 2300  PRINT : PRINT "THAT'S JUST WHAT I THOUGHT YOU WOULD": PRINT : PRINT "TYPE.  VERY WELL DONE."
  158. 2305  GOSUB 2990
  159. 2310  HOME : PRINT : PRINT : PRINT "TYPE IN 'RUN' AND I'LL SHOW YOU": PRINT : PRINT "YOUR HORIZONTAL LINE."
  160. 2320  INPUT " ";R$
  161. 2330  IF R$ = "RUN"  THEN 2350
  162. 2340  PRINT : PRINT "THE WORD I NEED IS 'RUN'."
  163. 2350  RUN 2360
  164. 2360  GR : COLOR= 12: HLIN 10,28 AT 35
  165. 2370  PRINT "THIS IS YOUR LINE."
  166. 2380  INPUT "PRESS RETURN TO CONTINUE.";R$
  167. 2390  TEXT : HOME : VTAB 4: HTAB 6: PRINT "YOU'VE DONE QUITE WELL SO FAR."
  168. 2395  PRINT : PRINT "YOU SHOULD USE YOUR PROGRAM WORKSHEET ": PRINT : PRINT "TO WRITE YOUR OWN PROGRAM TO DRAW": PRINT : PRINT "LINES NOW.  TYPE IN YOUR"
  169. 2400  PRINT : PRINT "INSTRUCTIONS AND RUN THEM.": PRINT : HTAB 6: PRINT "DON'T FORGET TO SET THE GRAPHICS": PRINT : PRINT "MODE (GR) AND COLOR AT THE BEGINNING."
  170. 2410  GOTO 596
  171. 2990  REM   SUBROUTINE FOR RETURN
  172. 2995  PRINT : PRINT : INPUT "PRESS RETURN FOR MORE";B$: HOME 
  173. 2998  RETURN 
  174. 2999  SPEED= 255
  175. 3000  HOME : VTAB 6: HTAB 6: PRINT "'VLIN' IS A BASIC COMMAND WHICH": PRINT : PRINT "WILL DRAW A VERTICAL LINE ON THE SCREEN."
  176. 3010  VTAB 10: HTAB 6: PRINT "'VLIN' WORKS JUST LIKE 'HLIN' WHICH": VTAB 12: PRINT "WE REVIEWED EARLIER.  THE POSITION OF"
  177. 3020  PRINT : PRINT "THE VERTICAL LINE IS DETERMINED": PRINT : PRINT "BY THE NUMBERS OF THE ROWS AND COLUMNS": PRINT : PRINT "ON THE INVISIBLE GRID."
  178. 3030  GOSUB 2990
  179. 3040  VTAB 3: HTAB 6: PRINT "HERE IS AN INSTRUCTION WITH": VTAB 5: PRINT "A 'VLIN' COMMAND.  LOOK AT IT TO SEE": VTAB 7: PRINT "HOW IT WORKS."
  180. 3050  VTAB 10: HTAB 8: PRINT "150 VLIN 10,34 AT 28"
  181. 3060  VTAB 13: HTAB 6: PRINT "YOU SHOULD SEE THE SIMILARITY BE-": VTAB 15: PRINT "TWEEN THIS INSTRUCTION AND THE ONE YOU": VTAB 17: PRINT "WROTE FOR 'HLIN.'"
  182. 3070  GOSUB 2990
  183. 3080  VTAB 8: HTAB 6: PRINT "TYPE IN 'RUN' TO SEE A DEMON-": VTAB 10: PRINT "STRATION OF A PROGRAM WHICH USES BOTH": VTAB 12: PRINT "'HLIN' AND 'VLIN' COMMANDS.
  184. 3090  PRINT : INPUT R$
  185. 3100  GR : COLOR= 6
  186. 3110  HLIN 5,37 AT 35
  187. 3115  VLIN 5,34 AT 5: VLIN 5,34 AT 37: HLIN 5,37 AT 5
  188. 3120  VLIN 20,34 AT 10: VLIN 20,34 AT 11: VLIN 20,34 AT 12
  189. 3130  VLIN 15,34 AT 20: VLIN 15,34 AT 21: VLIN 15,34 AT 22
  190. 3140  VLIN 10,34 AT 30: VLIN 10,34 AT 31: VLIN 10,34 AT 32
  191. 3150  PRINT "YOU COULD DRAW THIS GRAPH,TOO."
  192. 3160  GOSUB 2990
  193. 3170  TEXT : HOME : TEXT 
  194. 3180  VTAB 8: HTAB 6: PRINT "TYPE IN 'LIST' AND I'LL SHOW": VTAB 10: PRINT "YOU THE PROGRAM WHICH DRAWS THE GRAPH."
  195. 3190  PRINT : INPUT L$
  196. 3200  LIST 3100,3140
  197. 3210  GOSUB 2990
  198. 3220  HOME : VTAB 3: HTAB 6: PRINT "YOU SHOULD BE ABLE TO WRITE": VTAB 5: PRINT "YOUR OWN PROGRAM FOR DRAWING BOTH": VTAB 7: PRINT "HORIZONTAL AND VERTICAL LINES NOW."
  199. 3230  VTAB 10: HTAB 6: PRINT "YOU MAY WANT TO REVIEW BEFORE": VTAB 12: PRINT "YOU START WRITING."
  200. 3240  GOTO 260
  201. 4000  HOME : VTAB 4: HTAB 6
  202. 4010  PRINT "'FOR...NEXT' IS A BASIC COMMAND": VTAB 6: PRINT "WHICH ESTABLISHES A LOOP IN YOUR PROGRAM"
  203. 4015  VTAB 8: PRINT "AND LETS YOU PERFORM A FUNCTION FOR"
  204. 4020  VTAB 10: PRINT "A SPECIFIED NUMBER OF TIMES."
  205. 4030  VTAB 12: HTAB 6: PRINT "HERE IS AN EXAMPLE:"
  206. 4040  VTAB 14: HTAB 8: PRINT "160 FOR NUMBER = 1 TO 12": VTAB 16: HTAB 8: PRINT "170 PRINT NUMBER": VTAB 18: HTAB 8: PRINT "180 NEXT NUMBER"
  207. 4050  VTAB 20: HTAB 6: PRINT "STUDY THIS AND DECIDE WHAT IT DOES."
  208. 4060  GOSUB 2990
  209. 4070  VTAB 4: HTAB 6: PRINT "TYPE IN 'RUN' TO SEE THE PROGRAM": VTAB 6: PRINT "OPERATE."
  210. 4080  INPUT R$
  211. 4090  FOR NUMBER = 1 TO 12: PRINT NUMBER: NEXT NUMBER
  212. 4100  PRINT : PRINT "DID IT DO WHAT YOU EXPECTED?"
  213. 4110  GOSUB 2990
  214. 4120  VTAB 3: HTAB 6: PRINT "HERE IS THE EXAMPLE AGAIN."
  215. 4130  VTAB 5: HTAB 8: PRINT "160 FOR NUMBER =1 TO 12": VTAB 7: HTAB 8: PRINT "170 PRINT NUMBER": VTAB 9: HTAB 8: PRINT "180 NEXT NUMBER"
  216. 4140  VTAB 12: HTAB 5: PRINT "LINE 180 LOOPS BACK TO 160 12 TIMES."
  217. 4150  VTAB 14: PRINT "'FOR' AND 'NEXT' WORK TOGETHER IN": VTAB 16: PRINT "BASIC.  THEY PERFORM THE FUNCTION"
  218. 4160  VTAB 18: PRINT "INSERTED BETWEEN THEM FOR THE NUMBER OF": VTAB 20: PRINT "TIMES SPECIFIED IN THE LINE WITH 'FOR'"
  219. 4170  GOSUB 2990
  220. 4180  VTAB 3: HTAB 6: PRINT "HERE IS A PROGRAM THAT USES THE ": VTAB 5: PRINT "'FOR...NEXT' LOOP WITH THE 'HLIN'"
  221. 4185  VTAB 7: PRINT "AND 'VLIN' COMMANDS TO COMPLETE "
  222. 4190  VTAB 9: PRINT "ITS TASKS."
  223. 4200  VTAB 11: HTAB 6: PRINT "TYPE IN 'RUN' TO SEE IT WORK."
  224. 4210  VTAB 13: INPUT R$
  225. 4220  GR : COLOR= 5
  226. 4230  FOR N = 5 TO 30  STEP 5
  227. 4240  HLIN 5,35 AT N
  228. 4250  NEXT N
  229. 4260  FOR V = 5 TO 35  STEP 5
  230. 4270  VLIN 5,35 AT V
  231. 4280  NEXT V
  232. 4290  PRINT "YOU COULD DO THIS,TOO.
  233. 4300  GOSUB 2990
  234. 4310  HOME : TEXT : HOME 
  235. 4320  VTAB 4: HTAB 6: PRINT "TO SEE THE PROGRAM INSTRUCTIONS": VTAB 6: PRINT "WHICH DREW THE GRID, TYPE IN 'LIST.'"
  236. 4325  PRINT 
  237. 4330  INPUT L$
  238. 4340  LIST 4220,4280
  239. 4350  PRINT : HTAB 6: PRINT "STUDY THIS TO SEE HOW THE "
  240. 4360  PRINT : PRINT "'FOR...NEXT' LOOPS WORK."
  241. 4370  GOSUB 2990
  242. 4380  VTAB 4: HTAB 6: PRINT "BY NOW YOU SHOULD HAVE A GOOD IDEA"
  243. 4390  VTAB 6: PRINT "OF THE WAY SOME OF THE GRAPHICS COMMANDS"
  244. 4400  VTAB 8: PRINT "WORK TO DRAW LINES ON THE SCREEN."
  245. 4410  VTAB 10: HTAB 6: PRINT "TRY TO THINK OF A GOOD WAY TO USE"
  246. 4420  VTAB 12: PRINT "THIS NEW INFORMATION IN YOUR NEXT": VTAB 14: PRINT "PROGRAM."
  247. 4430  GOTO 260
  248. 4440  SPEED= 255
  249. 4450  END 
  250. 5010  PRINT I$